Komputer for Alle 2001 #11/CD 11 (Black) - 2001.iso/Fruity/ROLLUPS.DXR/00005_GENERAL HANDLERS.ls

Text File | 1998-04-13 | 11.7 KB | 390 lines

global gFruitObj, gCompletedRollUp, gRandomPos, gNullCst, gFruitRolledOut, gRolloverSpt, gUnRolledRollUpSpt, gPackageObj, gAnimationInProgress, gFruitInPackageLoc, gGuyObj, gGuyStandingCst, gGuyWalkCst, gGuyDanceCst, gGuyWalking, gInitialColorDepth, gInteruptFlag, gPathDelim, flushActive

on EjectFruit
  if gCompletedRollUp = 1 then
    exit
  end if
  if gFruitRolledOut = 1 then
    SlideClosedRollUps()
  end if
  RollFruit()
  if count(the pPackageFruitList of gPackageObj) = 0 then
    exit
  end if
  set gRandomPos to random(count(the pPackageFruitList of gPackageObj))
  EvaluateFruit()
end

on AnimatePackage
  puppetSnd(1, 85)
  updateStage()
  repeat while soundBusy(1)
  end repeat
  repeat with n = 1 to 2
    set the memberNum of sprite 35 to 16 + n
    set vTicks to the ticks + 7
    repeat while the ticks < vTicks
      updateStage()
    end repeat
  end repeat
  set the memberNum of sprite 35 to 16
  updateStage()
end

on EvaluateFruit
  if the memberNum of sprite 30 <> gNullCst then
    ReturnFruitToPackage()
    AnimatePackage()
    SlideFruitToStartPos()
  else
    AnimatePackage()
    SlideFruitToStartPos()
  end if
end

on SlideFruitToStartPos
  set the memberNum of sprite 30 to getAt(the pPackageFruitList of gPackageObj, gRandomPos)
  slide(30, 41, 44, 4, 3)
end

on ClickRollUp
  if gCompletedRollUp = 0 then
    if gFruitRolledOut = 1 then
      SlideClosedRollUps()
      RollFruit()
    end if
    set vRollover to rollOver()
    if (vRollover > 9) and (vRollover < 20) then
      set gRolloverSpt to vRollover
      SlideClosedRollUps()
      UnRollRollUp()
      PlaceRollUpPieces()
      repeat while soundBusy(1)
      end repeat
      if the memberNum of sprite 30 <> gNullCst then
        set vRollupPieceList to getProp(the pFruitCarpetFullList of gFruitObj, the memberNum of sprite gRolloverSpt)
        if getPos(vRollupPieceList, getAt(the pPackageFruitList of gPackageObj, gRandomPos)) > 0 then
          FruitMatch()
          AnimateFruitToRollup()
          repeat while soundBusy(1)
          end repeat
          puppetSnd(1, 86)
          set the memberNum of sprite 40 to gGuyStandingCst
          updateStage()
          repeat while soundBusy(1)
          end repeat
          if gCompletedRollUp = 1 then
            puppetSnd(1, 89)
            updateStage()
            repeat while soundBusy(1)
            end repeat
            puppetSnd(1, 87)
            updateStage()
            AnimateCompletedRollup()
            repeat while soundBusy(1)
            end repeat
            puppetSnd(1, 90)
            updateStage()
          else
            SlideClosedRollUps()
            RollFruit()
          end if
        else
          FruitReturn()
          ReturnFruitToPackage()
          SlideClosedRollUps()
          RollFruit()
        end if
      end if
    end if
  end if
end

on SlideClosedRollUps
  case gRolloverSpt of
    10:
      slide2(11, 12, the locV of sprite 11, 20, the locV of sprite 12, 20, 4, 3)
    11:
      slide2(10, 12, the locV of sprite 10, -20, the locV of sprite 12, 20, 4, 3)
    12:
      slide2(10, 11, the locV of sprite 10, -20, the locV of sprite 11, -20, 4, 3)
  end case
end

on UnRollRollUp
  puppetSnd(1, 82)
  updateStage()
  set gFruitRolledOut to 1
  set the visible of sprite gRolloverSpt to 0
  updateStage()
  set the memberNum of sprite gUnRolledRollUpSpt to the memberNum of sprite gRolloverSpt + 1
  set the loc of sprite gUnRolledRollUpSpt to the loc of sprite gRolloverSpt
  updateStage()
  wait(5)
end

on PlaceRollUpPieces vFruitPropList, vFruitLocPropList
  set vFruitPropList to getProp(the pCarpetStatusList of gFruitObj, the memberNum of sprite gRolloverSpt)
  set vFruitLocPropList to getProp(the pCarpetLocList of gFruitObj, the memberNum of sprite gRolloverSpt)
  repeat with n = 1 to 4
    if getAt(vFruitPropList, n) = 0 then
      set the memberNum of sprite (19 + n) to gNullCst
      set the loc of sprite (19 + n) to point(-1, -1)
      next repeat
    end if
    set the memberNum of sprite (19 + n) to getAt(vFruitPropList, n)
    set the loc of sprite (19 + n) to getAt(vFruitLocPropList, n)
  end repeat
  set the memberNum of sprite gUnRolledRollUpSpt to the memberNum of sprite gRolloverSpt + 2
  updateStage()
end

on FruitMatch
  puppetSnd(1, 93)
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set the memberNum of sprite 40 to gGuyStandingCst + 1
  updateStage()
  set vFruitRollupAssignment to getPos(getProp(the pFruitCarpetFullList of gFruitObj, the memberNum of sprite gRolloverSpt), getAt(the pPackageFruitList of gPackageObj, gRandomPos))
  set vFruitPropList to getProp(the pCarpetStatusList of gFruitObj, the memberNum of sprite gRolloverSpt)
  set vFruitLocPropList to getProp(the pCarpetLocList of gFruitObj, the memberNum of sprite gRolloverSpt)
  deleteAt(vFruitPropList, vFruitRollupAssignment)
  addAt(vFruitPropList, vFruitRollupAssignment, 0)
  set vMatchCount to 0
  repeat with n = 1 to 4
    if getAt(vFruitPropList, n) = 0 then
      set vMatchCount to vMatchCount + 1
    end if
  end repeat
  if vMatchCount = 4 then
    set gCompletedRollUp to 1
  end if
end

on AnimateFruitToRollup
  set vFruitLocPropList to getProp(the pCarpetLocList of gFruitObj, the memberNum of sprite gRolloverSpt)
  set vFruitRollupAssignment to getPos(getProp(the pFruitCarpetFullList of gFruitObj, the memberNum of sprite gRolloverSpt), getAt(the pPackageFruitList of gPackageObj, gRandomPos))
  wait(60)
  updateStage()
  set vFruitH to getAt(getAt(vFruitLocPropList, vFruitRollupAssignment), 1)
  set vFruitV to getAt(getAt(vFruitLocPropList, vFruitRollupAssignment), 2)
  puppetSnd(1, 84)
  updateStage()
  AdjustSign(vFruitH, vFruitV)
  puppetSound(0)
  updateStage()
  set the memberNum of sprite 30 to gNullCst
  set the loc of sprite 30 to gFruitInPackageLoc
  set the memberNum of sprite (19 + vFruitRollupAssignment) to gNullCst
  set the loc of sprite (19 + vFruitRollupAssignment) to point(-1, -1)
  deleteAt(the pPackageFruitList of gPackageObj, gRandomPos)
  set gRandomPos to 0
end

on AdjustSign vFruitH, vFruitV
  case gRolloverSpt of
    10:
      sinSlideUnder(30, vFruitH, vFruitV, 10, 2, 3)
    11:
      sinSlideUnder(30, vFruitH, vFruitV, 10, 2, 30)
    12:
      sinSlideUnder(30, vFruitH, vFruitV, 10, 2, 60)
  end case
end

on RollFruit
  if gFruitRolledOut = 1 then
    puppetSnd(1, 83)
    updateStage()
    set the memberNum of sprite gUnRolledRollUpSpt to gNullCst
    set the loc of sprite gUnRolledRollUpSpt to point(-1, -1)
    repeat with n = 1 to 4
      set the memberNum of sprite (19 + n) to gNullCst
      set the loc of sprite (19 + n) to point(-1, -1)
    end repeat
    set the visible of sprite gRolloverSpt to 1
    set the memberNum of sprite gRolloverSpt to getAt(getProp(the pFruitCarpetSptOrder of gFruitObj, gRolloverSpt), 1) + 1
    updateStage()
    wait(5)
    set the memberNum of sprite gRolloverSpt to getAt(getProp(the pFruitCarpetSptOrder of gFruitObj, gRolloverSpt), 1)
    updateStage()
    set gFruitRolledOut to 0
    repeat while soundBusy(1)
    end repeat
  end if
end

on FruitReturn
  puppetSnd(1, 92)
  updateStage()
  set the memberNum of sprite 40 to gGuyStandingCst
  updateStage()
  set gRandomPos to 0
end

on ReturnFruitToPackage
  if gCompletedRollUp = 0 then
    slide(30, getAt(gFruitInPackageLoc, 1), getAt(gFruitInPackageLoc, 2), 3, 3)
    set the memberNum of sprite 30 to gNullCst
    set the loc of sprite 30 to gFruitInPackageLoc
  end if
end

on AnimateCompletedRollup
  set the memberNum of sprite 40 to gGuyStandingCst
  updateStage()
  SlideRollsOffScreen()
  slide(19, 285, 160, 8, 3)
  repeat with n = 1 to 2
    set the memberNum of sprite 19 to the memberNum of sprite 19 + 1
    updateStage()
    wait(5)
  end repeat
  set the memberNum of sprite 40 to gGuyWalkCst
  updateStage()
  set gAnimationInProgress to 1
end

on SlideRollsOffScreen
  case gRolloverSpt of
    10:
      slide2(11, 12, the locV of sprite 11, 200, the locV of sprite 12, 200, 5, 3)
    11:
      slide2(10, 12, the locV of sprite 10, -200, the locV of sprite 12, 200, 5, 3)
    12:
      slide2(10, 11, the locV of sprite 10, -200, the locV of sprite 11, -200, 5, 3)
  end case
end

on AnimateGuyAcrossRollup
  repeat while the locH of sprite 40 < 460
    repeat with n = 1 to 4
      set theTime to the timer + 9
      set the memberNum of sprite 40 to gGuyWalkCst + n
      set the locH of sprite 40 to the locH of sprite 40 + 15
      UStage(theTime)
    end repeat
    set the memberNum of sprite 40 to gGuyWalkCst
    updateStage()
  end repeat
  set the memberNum of sprite 40 to gGuyDanceCst
  set the loc of sprite 40 to point(460, 125)
  updateStage()
  repeat while soundBusy(1)
  end repeat
  set gAnimationInProgress to 2
end

on AnimateGuyVictoryDance
  puppetSnd(1, 91)
  updateStage()
  repeat while soundBusy(1)
    repeat with n = 1 to 3
      set theTime to the timer + 10
      set the memberNum of sprite 40 to gGuyDanceCst + n
      UStage(theTime)
    end repeat
  end repeat
  set gAnimationInProgress to 0
  EndGame()
end

on updateScreen
  case gAnimationInProgress of
    1:
      AnimateGuyAcrossRollup()
    2:
      AnimateGuyVictoryDance()
      set the memberNum of sprite 40 to gGuyDanceCst
      updateStage()
  end case
  UpdateAmbient()
end

on EndGame
  if IsShockWave() then
    gotoNetPage("../ruxff.html")
  else
    if IsProj() then
      go(1, "Frutfoot")
      abort()
    else
      set the loc of sprite 40 to point(126, 125)
      set the memberNum of sprite 40 to gGuyStandingCst
      initGame()
      go("Start")
    end if
  end if
end

on slide chan, H2, V2, steps, waitTime
  set deltaH to the locH of sprite chan - H2
  set deltaV to the locV of sprite chan - V2
  repeat with incr = 1 to steps
    set theTime to the timer
    set the locH of sprite chan to H2 + (deltaH * (steps - incr) / steps)
    set the locV of sprite chan to V2 + (deltaV * (steps - incr) / steps)
    updateStage()
    repeat while the timer < (theTime + waitTime)
    end repeat
  end repeat
end

on slide2 chan1, chan2, V1, V1Direction, V2, V2Direction, steps, waitTime
  if (gFruitRolledOut = 1) and (gCompletedRollUp = 0) then
    set V1Direction to V1Direction * -1
    set V2Direction to V2Direction * -1
  end if
  set deltaV1 to the locV of sprite chan1 - (V1 + V1Direction)
  set deltaV2 to the locV of sprite chan2 - (V2 + V2Direction)
  repeat with incr = 1 to steps
    set theTime to the timer
    set the locV of sprite chan1 to V1 + V1Direction + (deltaV1 * (steps - incr) / steps)
    set the locV of sprite chan2 to V2 + V2Direction + (deltaV2 * (steps - incr) / steps)
    updateStage()
    repeat while the timer < (theTime + waitTime)
    end repeat
  end repeat
end

on slide3 chan1, chan2, chan3, V1, V2, V3, steps, waitTime
  set deltaV1 to the locV of sprite chan1 - V1
  set deltaV2 to the locV of sprite chan2 - V2
  set deltaV3 to the locV of sprite chan3 - V3
  repeat with incr = 1 to steps
    set theTime to the timer
    set the locV of sprite chan1 to V1 + (deltaV1 * (steps - incr) / steps)
    set the locV of sprite chan2 to V2 + (deltaV2 * (steps - incr) / steps)
    set the locV of sprite chan3 to V3 + (deltaV3 * (steps - incr) / steps)
    updateStage()
    repeat while the timer < (theTime + waitTime)
    end repeat
  end repeat
end

on sinSlideUnder chan, H2, V2, steps, waitTime, a
  set deltaH to the locH of sprite chan - H2
  set deltaV to the locV of sprite chan - V2
  repeat with incr = 1 to steps
    set theTime to the timer
    set percentOfPath to float(steps - incr) / float(steps)
    set the locH of sprite chan to H2 + (deltaH * percentOfPath)
    set the locV of sprite chan to V2 + (deltaV * percentOfPath) + (a * -1 * sin(float(incr) / float(steps) * PI))
    updateStage()
    repeat while the timer < (theTime + waitTime)
    end repeat
  end repeat
end

on resetCursor
  cursor(200)
  cursor([2, 3])
end

on UpdateAmbient
  if not soundBusy(1) then
    puppetSnd(1, "RollUpAmbient")
  end if
end